CAAMoon_MeanLongitude <-
function(JD){
.Call("CAAMoon_MeanLongitude", JD)
}
